set proc to sospro
SET TALK OFF
f2='in_pat.dbf'
f4='dlv_temp.dbf'
f7='revenue.dbf'
f8='activity.dbf'
f9='act_proc.dbf'
f10='act_phar.dbf'
f11='doct_fee.dbf'
f12='revenue1.dbf'
f13='activit1.dbf'
f14='act_pro1.dbf'
f15='act_pha1.dbf'
f16='doct_fe1.dbf'

sele 1
set exclu off
use &DR1&f2
if net_use('&DR1&f2',.t.,'1',10)
   zap
endif
use

sele 1
set exclu off
use &DR1&f4
if net_use('&DR1&f4',.t.,'1',10)
   zap
endif
use

sele 1
set exclu off
use &DR1&f7
if net_use('&DR1&f7',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f8
if net_use('&DR1&f8',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f9
if net_use('&DR1&f9',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f10
if net_use('&DR1&f10',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f11
if net_use('&DR1&f11',.t.,'1',10)
   zap
endif
use

sele 1
set exclu off
use &DR1&f12
if net_use('&DR1&f12',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f13
if net_use('&DR1&f13',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f14
if net_use('&DR1&f14',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f15
if net_use('&DR1&f15',.t.,'1',10)
   zap
endif
use
sele 1
set exclu off
use &DR1&f16
if net_use('&DR1&f16',.t.,'1',10)
   zap
endif
use

RETURN